﻿Public Class ProgressBar
      
    Private Sub bgwData_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles bgwData.ProgressChanged
        Me.ultraProgressBar1.Minimum = 0
        Me.ultraProgressBar1.Maximum = 100
    End Sub

    Private Sub ProgressBar_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Me.Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick
        Me.ultraProgressBar1.IncrementValue(0.7)
        If ultraProgressBar1.Value = ultraProgressBar1.Maximum Then
            Me.Hide()
            Me.Timer1.Stop()
            KeToanTienMat1.Show()
        End If
    End Sub
End Class